home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE12 / WPTOOLS / WPTOOLS1.ZIP / vcl / Wptools.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-10  |  1.2 KB  |  32 lines
  1. unit WpTools;
  2. { WPTools V1.5 -----------------------------------------
  3.   Version of 3/20/1996
  4.   CopyRight 1996 by Julian Ziersch Software, Mⁿnchen
  5.   for Delphi 16 + 32
  6.   ------------------------------------------------------ }
  7. interface
  8. {$IFNDEF WIN32}
  9.   {$R WPTORES.DCR}
  10. {$ELSE}
  11.   {$R WPTORES.RES}
  12. {$ENDIF}
  13.  
  14. uses Classes, WPTBar, WPDBRich, WPRich, WPRuler, WPStatus, WPRtfIO, WPStat2,DsgnIntf,
  15.      WPWinCtr, WPPRStt, WPPRRtf, Wpspdlg1, WPLabel, Wppagprp, WPParPrp,WPParBrd;
  16. procedure Register;
  17. implementation
  18. procedure Register;
  19. begin
  20.   RegisterComponents('WPTools',
  21.      [TWPToolBar,TWPRuler,TWPRichText,TWPRichTextLabel,
  22.       TDBWPRichText,TWPRtfStorage,TWPStatusBar,TWPAltStatusBar,
  23.       {TWPTextPropDlg,}TWPPagePropDlg,TWPParagraphPropDlg,TWPParagraphBorderDlg,
  24.       TWPSpellCheckDlg]);
  25.   RegisterPropertyEditor(TypeInfo(TStringList),TWPStatusBarBasic,'Strings',TStatusItemsProperty);
  26.   RegisterPropertyEditor(TypeInfo(TWPRTFTextIO), TWPCustomRtfEdit,'RtfText',TRtfTextProperty);
  27.   RegisterPropertyEditor(TypeInfo(TWPRTFTextIO), TWPCustomRtfLabel,'RtfText',TRtfTextProperty);
  28.   RegisterPropertyEditor(TypeInfo(TWPRTFTextIO), TWPRtfStorage,'RtfText',TRtfTextProperty);
  29.   end;
  30. end.
  31.  
  32.